Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/dbtext.dxr/00006_PlatForm, File io.ls

Text File | 2000-01-18 | 531 b | 29 lines

on GetTextExtension
  if the machineType = 256 then
    Extension = ".txt"
  else
    Extension = EMPTY
  end if
  return Extension
end

on IsKeyBoardEquivalentDown
  if the machineType = 256 then
    return the controlDown
  else
    return the commandDown
  end if
end

on GetSavePathandName xName
  unLoad()
  FileioObj = new(xtra("fileio"))
  if not objectp(FileioObj) then
    beep()
  else
    pathAndName = displaySave(FileioObj, "Where would you like to save?", xName)
    FileioObj = 0
    return pathAndName
  end if
end